/**********************************************************************************************/
/* FBL_CreateStream.cpp 	                                                   				  */
/*                                                                       					  */
/* Copyright Paradigma, 1993-2006															  */
/* All Rights Reserved                                                   					  */
/**********************************************************************************************/

#include <VShared/FBL/publ/Headers/StdAfx.h>

#include <VShared/FBL/publ/File_OS/FBL_File_OS.h>
#include <VShared/FBL/publ/Streams/FBL_Stream_OnFile.h>


/**********************************************************************************************/
FBL_Begin_Namespace


/**********************************************************************************************/
// Create instance of FBL_I_Database and specify its location. 
//
I_IStream* CreateTextStream( I_Disk_Location_Ptr inLoc )
{
	File_OS* pFileOS = new File_OS;	 // to get access to File_OS methods.
	I_File_Ptr pF = pFileOS;
	 
	pFileOS->put_Location(inLoc); 
	
#if FBL_MAC

	pFileOS->put_MacType( 'TEXT' );
	// pFileOS->put_MacCreator( 'CWIE' );

#endif // FBL_MAC		
	
	pF->Create();

	return new Text_Stream_OnFile( pF );
}	


/**********************************************************************************************/
FBL_End_Namespace

